COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 [IFN FOO ...]
C00004 ENDMK
C⊗;
;;; [IFN FOO ...]
;;; [IFN (FOO BAR QUUX ....) ...]
;;; [IFN ((PRED FOO) ...) ..] such as
;;; [IFN ((NOT SAIL) DEC10) ...]

(DECLARE (EVAL (READ)))

    (SETSYNTAX '/[ 'SPLICING 		;CONDITIONAL ASSEMBLY HACK
	(FUNCTION (LAMBDA NIL		;LOOK SORT OF LIKE MIDAS IF'S
	     ((LAMBDA (IF FLAG R)
		      (COND ((ATOM FLAG)(SETQ FLAG (NCONS FLAG))))
	 	      (COND ((EQ IF 'IFE))
			    ((EQ IF 'IFN) (SETQ IF NIL))
			    ((EQ IF 'IFP) (SETQ IF (EVAL FLAG) FLAG NIL))
			    ((BREAK LOSING-IF T)))
		      (OR (APPLY 'AND (MAPCAR (FUNCTION (LAMBDA (Q)
						(COND ((ATOM Q)
						       (COND ((MEMQ Q R) T)))
						      (T (COND ((APPLY (CAR Q)
								 (NCONS (MEMQ (CADR Q) R))) T))))))
					      FLAG))
			  (SETQ IF (NOT IF)))
		      (AND IF (DO ((Z (TYIPEEK) (TYIPEEK)) (N 1))
				  ((ZEROP N))
				  (COND ((= Z '133) (SETQ N (1+ N)))
					((= Z '135) (SETQ N (1- N))))(TYI))))
	      (READ) (READ)(STATUS FEATURES))
	     NIL)))

(DECLARE (EVAL (READ)))

   (SETSYNTAX '/] 'SPLICING (FUNCTION (LAMBDA NIL NIL)))	;RIGHT BRACE